object Form1: TForm1
  Left = 235
  Top = 99
  Width = 640
  Height = 386
  Caption = 'TUtility Dialog Box Component Demo'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 16
  object Label1: TLabel
    Left = 24
    Top = 315
    Width = 148
    Height = 16
    Caption = '(CallBackActive Property)'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 240
    Top = 315
    Width = 171
    Height = 16
    Caption = '(BorrowRebuildOnly Property)'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 325
    Top = 142
    Width = 68
    Height = 15
    Caption = 'Table List'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 496
    Top = 208
    Width = 121
    Height = 25
    Caption = 'Execute Dialog'
    TabOrder = 0
    OnClick = Button1Click
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 144
    Width = 313
    Height = 147
    Caption = 'DlgOptions Property'
    TabOrder = 1
    object rdDBCombosEnabled: TCheckBox
      Left = 8
      Top = 16
      Width = 144
      Height = 17
      Caption = 'rdDBCombosEnabled'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = rdDBCombosEnabledClick
    end
    object rdDBCombosVisible: TCheckBox
      Tag = 1
      Left = 8
      Top = 32
      Width = 137
      Height = 17
      Caption = 'rdDBCombosVisible'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = rdDBCombosEnabledClick
    end
    object rdCheckBoxEnabled: TCheckBox
      Tag = 2
      Left = 8
      Top = 48
      Width = 139
      Height = 17
      Caption = 'rdCheckBoxEnabled'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = rdDBCombosEnabledClick
    end
    object rdCheckBoxVisible: TCheckBox
      Tag = 3
      Left = 8
      Top = 64
      Width = 129
      Height = 17
      Caption = 'rdCheckBoxVisible'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = rdDBCombosEnabledClick
    end
    object rdSourceListEnabled: TCheckBox
      Tag = 4
      Left = 8
      Top = 80
      Width = 139
      Height = 17
      Caption = 'rdSourceListEnabled'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = rdDBCombosEnabledClick
    end
    object rdSourceListVisible: TCheckBox
      Tag = 5
      Left = 8
      Top = 96
      Width = 131
      Height = 17
      Caption = 'rdSourceListVisible'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = rdDBCombosEnabledClick
    end
    object rdSelectBtnsVisible: TCheckBox
      Tag = 6
      Left = 8
      Top = 112
      Width = 133
      Height = 17
      Caption = 'rdSelectBtnsVisible'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = rdDBCombosEnabledClick
    end
    object rdExceptListVisible: TCheckBox
      Tag = 7
      Left = 8
      Top = 128
      Width = 132
      Height = 17
      Caption = 'rdExceptListVisible'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnClick = rdDBCombosEnabledClick
    end
    object rdVerifyOnlyBtnVisible: TCheckBox
      Tag = 8
      Left = 154
      Top = 16
      Width = 150
      Height = 17
      Caption = 'rdVerifyOnlyBtnVisible'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = rdDBCombosEnabledClick
    end
    object rdViewErrosBtnVisible: TCheckBox
      Tag = 9
      Left = 154
      Top = 32
      Width = 149
      Height = 17
      Caption = 'rdViewErrosBtnVisible'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      OnClick = rdDBCombosEnabledClick
    end
    object rdVerRebBtnVisible: TCheckBox
      Tag = 10
      Left = 154
      Top = 48
      Width = 134
      Height = 17
      Caption = 'rdVerRebBtnVisible'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 10
      OnClick = rdDBCombosEnabledClick
    end
    object rdRebuildOnlyVisible: TCheckBox
      Tag = 11
      Left = 154
      Top = 64
      Width = 140
      Height = 17
      Caption = 'rdRebuildOnlyVisible'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 11
      OnClick = rdDBCombosEnabledClick
    end
    object rdSaveBatchVisible: TCheckBox
      Tag = 12
      Left = 154
      Top = 80
      Width = 133
      Height = 17
      Caption = 'rdSaveBatchVisible'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 12
      OnClick = rdDBCombosEnabledClick
    end
    object rdFileInfoVIsible: TCheckBox
      Tag = 13
      Left = 154
      Top = 96
      Width = 110
      Height = 17
      Caption = 'rdFileInfoVIsible'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 13
      OnClick = rdDBCombosEnabledClick
    end
    object rdGuagesVisible: TCheckBox
      Tag = 14
      Left = 154
      Top = 112
      Width = 116
      Height = 17
      Caption = 'rdGuagesVisible'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 14
      OnClick = rdDBCombosEnabledClick
    end
    object rdLogVisible: TCheckBox
      Tag = 15
      Left = 154
      Top = 128
      Width = 90
      Height = 17
      Caption = 'rdLogVisible'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 15
      OnClick = rdDBCombosEnabledClick
    end
  end
  object CheckBox1: TCheckBox
    Left = 8
    Top = 299
    Width = 209
    Height = 17
    Caption = 'Status Guage Callbacks Active'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = CheckBox1Click
  end
  object Memo1: TMemo
    Left = 320
    Top = 160
    Width = 145
    Height = 129
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    Lines.Strings = (
      'Memo1')
    ParentFont = False
    TabOrder = 3
  end
  object Memo2: TMemo
    Left = 8
    Top = 8
    Width = 617
    Height = 129
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    Lines.Strings = (
      
        'The TUtility dialog box component (TRepairDialog) offers a fast ' +
        'and easy way to implement Paradox table '
      'verify and repair in your application.'
      ''
      
        'Great care has been taken to make the Repair Dialog as flexible ' +
        'as possible. Single or multiple table repair '
      
        'is completely supported along with the ability to deliver either' +
        ' a simple "one click" solution or a power user '
      '"do it all" solution.'
      ''
      
        'The SourceDBName property lets you predefine where to get the li' +
        'st of tables to be verified, and the '
      
        'BorrowDBName property lets you pre-specify where to borrow the t' +
        'able structures from in case a rebuild is '
      
        'necessary. Note that you do not need to specify either of these ' +
        'properties at design time. This can be left to '
      'the user to do at run time.'
      ''
      
        'The DlgOptions property is the key to making the dialog box as s' +
        'imple or as powerful as your users require. '
      
        'Use this property to show, hide, enable or disable the various p' +
        'arts of the dialog.'
      ''
      
        'The dialog box'#39's TableList property lets you pre-specify which t' +
        'able in the database should be checked. '
      'Again this is optional, you can leave it to the user to choose.'
      ''
      
        'The optional BorrowRebuildOnly property pre-specifies if a table' +
        ' can be rebuilt without another table to '
      
        'borrow the structure from. Its always a good idea to always borr' +
        'ow the structure of a known good table.'
      ''
      
        'Some times you just don'#39't want to see all those status guages sp' +
        'inning around. You can turn them off by '
      
        'setting the CallBackActive property to false. (This also improve' +
        's preformace.)'
      ''
      '')
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 4
  end
  object CheckBox2: TCheckBox
    Left = 224
    Top = 296
    Width = 241
    Height = 17
    Caption = 'Only rebuild with borrowed structure'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = CheckBox2Click
  end
  object Button2: TButton
    Left = 496
    Top = 168
    Width = 121
    Height = 25
    Caption = 'Close'
    TabOrder = 6
    OnClick = Button2Click
  end
  object RepairDialog1: TRepairDialog
    SourceDBName = 'DBDEMOS'
    BorrowDBName = 'DBDEMOS'
    TableList.Strings = (
      'customer.db'
      'items.db'
      '')
    BorrowRebuildOnly = False
    Left = 488
    Top = 256
  end
end